AUCKLAND COLOUR GENIE USERS GROUP 


MEETING HRIJl W 28 MAY. 1984 

A vei-y gocxl attendance at thia meeting - 45 people came, which really filled the 
hall. This is marvellous, it certainly shows that 'us Genie people' really want 
to learn about our machine. 

Andy and Ken showed the Group 'Peeks' and 'Pokes' a synopsis of which is 
included at the end of this report. 

We should now have a mention in the 'Club Contacts' section of 'Bits and Bytes' 
- a letter was written at the beginning of this month. 

A member also thought it would be a good idea to mention the magazines that 
occasionally had articles about the Colour Genie, as not too many magazines 
feature our machine. Ones known are: 


(a) Computing Today (monthly magazine) 

(b) Personal Computing News (weekly magazine) 

If anyone knows of any other magazines, please let us know. 

Re New Roim New roms will be available soon from the Group for around $12,00 
to $15.00 each. These Roms contain the disk commands and will be available from 
Andy and Ken. More on this in the next Newsletter. 

Can anyone help one of our mewbers; he wishes to know what CA3 42] in Super 80 
programs means, both square brackets and figur'es. If anyone can help, please 
contact Ron Burton. Box 208. Te Aroha. or- your Committee. 


Other Possible Software - this time from New Zealand 

We have a friend of one of our- members, a Mr Allan Clarke, who has quite a few 
TRS80/System 80 programs that can be converted on to the Colour Genie, with 
quite a bit of effort involved, and he would be willing to sell these programs 
at probably between $10.00 and $15.00, certainly no more than $15.00. Under 
these circumstances, he would need an indication of what interest there would be 
in his programs, so I am including a list of what he could convert. 


Compilers 

Word Processor (basic, but with M/C 
routine for data saving; 
Monitors 
Statistics 

Serial Port Driver (up and tunning) 

Data Base 
Editor Assembler 


Disassembler 
PILOT language 
Program compressor 
PERT 

Ledger Keeper- 

General Utility (screen dunp, move 
memory, auto edit, recover- BASIC prograin. 
merge) 

Program Search 


I feel personally, that these utility programs would be well worth having. The 
same sort of programs are going to cost equally as much, if not more, than 
Allan s programs. However. I do feel that we would need such progrants NOW, not 
in the ’future, which is the one benefit with the overseas programs, they are 
ready now. Go. if we can get some idea on who wants what, we can get Allan 
cracking on producing these programs for the Genie without delay!! 

Please do remember, though, tltat your Committee members ax'e working their tails 
off to get this software off the ground, and we can do nothing without you all 
getting in touch and letting us know your software preferences. So come on, 
stop reading this for a moment, and write me a note. 



Software 


A big thank you to the 10 people who have ao fai* responded to my request for a 
note on what software everyone is interested in. And everyone else, pl ea s e put 
pen to paper. 

We have now heard from J. Brier (two machine code ar'cade type games) and 
Gumboot Software (see software pages in last month's newsletter). Both of these 
software houses are willing to let us become the New Zealand agents for their 
software, so we are going ahead and ordering the masters from these two 
companies. 

We will let you know for sure later, but prices should be from $9.00 to $12.00 
per tape. 

There is also a couple of programs to be added to last month's list: 

Gumboot Software 

40. Flying Bytes Flight simulator for a 32K machine - supposed to 

be very good. 

41. Droids Arcade game. (.Using a laser tank, droids and mines 

have to be cleared. Original and great fun, so the 
review in the U.K. magazine goes.) 

We have also ordered a Technical Manual from Gumboot as these are now available. 
We Will then he able to photocopy them and char-ge accordingly. 

Gumboot are also willing to let us have quantities of the U.K. magazine - at a 
reasonable price, we ar'e awaiting the exact cost. 

So far. we have not heard from any of the other software houses, and I have sent 
out a further 17 letters to other software houses also advertising in the 
magazine. 

Well, that's about it for this month, remember that the next meeting is on:- 

25 June 1984 

and hopefully we will see at least 50 people there. 


- Kola Huggins 


PEEKS AND POKES 

As I promised, the following will cover what I spoke about at our- last meeting. 
The first prcogram looked at. scanned the keyboard memory and responded when a Y 
or an N was pressed. 

For those of you who don't have a map of the Keyboard Memory System, there is a 
copy attached. 

The first progra* was: 

10 CLS ;G=PEEK( -2046 ):H=PEEK( -2040) 

20 IF G AND 64 THEN PRINTS 500, "NO" ELSE 

IF H AND 02 THEN PRINT0 500, "YES” ELSE GOTO 10 
30 FOR X*1 TO 500 :NEXT: GOTO 10 

In line 10 G is assicjned a value from Memory location(-2046) or 6JIF802. This val 
ue can be from 0 to 255 and the value that G assumes will depend on the key(s) 
depressed on the computer keyboard. The same applies to H. the only difference 
tiie memory location being looked at. In this case (-2040) 6J1F808. 




In line 20. using an IF-THEN teat, we establish whether the required keyboard 
input was made or not. I£ it was, then we print a response to show the system 
working. If there is no input from the keyboard then the program goes back to 
line 10 to look again. The delay loop iT\ line 30 :iust keeps the response on the 
screen so we get to see it. 

The tests in line 20 could cause branching to subroutines or returns to a main 
program instead of how it appears in this program which was for demonstratior\ 
purposes only. 

nijwhl inq Break 

Poke 16396.23 

- To re-enable - Poke 16396,201 

(it IS a good idea to do this at the end of a program if BREAK was disabled at 
the start of the progtajii.; 


(Cursor 

To change the cursor - Poke 16410, (value) 


Value 

1-7 

static 

1 = (block) 

7 = _ (.underline) 


64-71 

fast 

(.64 same as 1) 

(.71 same as 7) 


96-103 

slow 

( 96 same as 1 ) 

(.103 same as 7) 


Low Res Screen 

This screen starts at 6J14400 07408 dec) and finishes at aH47FF (18431 ) but 
locations after &H47BF (133b7j are not displayed. 

To see if something is printed on the screen PEEK the required location and test 
to see if the value returned is wliat you were looking for-. More on tins later- 
in the second program. 

High Res Screen 

Starts at 6H4800 (18432 dec) 

Stops at 6.H57FF (22527 dec) 

Disadblinq The Keyboard 

This could be used to speed up sorting or mathematical calculations during a 
program where no keyboard input is required. Once the computations are 
complete, re-enable the keyboard to continue program execution. 

Poke 16405. 0 (disjablc) 

Poke 16405,1 (able) 

Second Program 

10 CLS:X=17408:Y=&HAC0O 

20 G=PEEK(-1984) 

30 IF G AND 64 THEN Z=X:X=X+1 :C=4 

40 IF G AND 32 THEN Z=X:X=X-1 :C=6 

50 IF G AND 16 THEN Z=X:X=X+40;C=1 

60 IF G AND 08 THEN Z=X:X=X-40:C=5 

70 IF (X <17408 OR X >18367) THEN X=7 
80 POKE X. 199 -.POKE X+7.C 
90 V=PEEK(17900):IF V=199 THEN CLS 
100 GOTO 20 

The pro^am was used to show the keyboanl memory and screen memory can be used 
by PEEKing and POKing to do something on the screen. 


10 - Sets X to first screen location. Sets Y to the colour RAM area so 
that the colour of the object to be printed at X can be set during the program. 

Line 20 - Scans the keyboard, namely the arrow keys, all other things being 
ignored. 

Lines 30-60 - determine which arrow key was pressed, adjusts the value of X 
and sets a new colour if required. 

Line 70 - tests to see if X is less than or greater than the text screen size. 

If you don't do this, disastrous things can happen. (Try taking it out and 
see! I ) 

Line 80 - Pokes ch 2 Lracter 199 to the screen at location X and sets the colour 
of that location. 

Line 90 - Here we ai-e looking at the screen at a specific location. If that 
location has a character of 199 (ASCII) printed on it, then the test continues 
to clear the screen. 

Line 100 - returns to 20 to start again. 

This 13 just one simple use of this type of programming. I used a similar 
technique to change the viewing direction in Haunted House. Have a look and see 
if you can understand all that is happening. 


Blanking Lines in a Prograjii 

As an example I will blank the following line: 

10 CLS:P0KE 16410, 103;POKE 16396.23 

Enter the line normally, then go EDIT 10. Count the cheuracters/spaces used in 
the line. In tins case 32. Press X which will put you at thhe end of Line 10. 
then enter 32 blank characters (space bar'). Leave the edit mode. 

Now re-enter with EDIT 10. Press 32 then the space bar. T}us will put the 
cursor at the first blank space after '23'. Now press 32 then C then — (back 
space art'ow key). The line should disappear'. Press Retui'n to exit the edit 
mode. Now LIST 10 and you should see '10 (blank)'. 

Next Month "Using Block Graphics". 

Happy Computing. - Andy 


KEYBOARD LAYOUT 


BIT NO 

7 

6 

5 

4 

3 

2 

1 

0 

VALUE 

128 

64 

32 

16 

08 

04 

02 

01 

ADDRESS 

F801(-2047) 

G 

F 

E 

D 

C 

B 

A 

@ 

F802(-2046) 

0 

N 

M 

L 

K 

J 

I 

H 

F804(-2044) 

W 

V 

U 

T 

• S 

R 

Q 

P 

F808(-2040) 

F4 

n 

F2 

FI 


Z 

Y 

X 

F810(-2032) 

• 

& 

% 

$ 

# 


! 



7 

6 

5 

4 

3 

2 

1 

0 

F820(-2016) 

7 

> 

- 

< 

+ 

• 

) 

( 


/ 


- 

♦ 

« 


9 

8 

F»40(-1984) 

Space 

'■ "T"' 

- 

*- 

i 

T 

BRK 

CLR 

ENTER 


F880{-1920) 


CTRL RPT 


Mod 

Sel SHIFT 










ONE LINERS 


Here is a pair of one liners (or should xt bo one two-liner?) that you can use 
as subroutines in your programs to convert to and from hexadecimal numbers. Tty 
them in the stand alone form given below to see how they work. 

5 'Hex to Decimal Converter 
10 INPUT H$:CO=0 

20 C=C»16+ASC(H$)-48+7»(ASC(H$) >57) :H$=MID$(H$.2) : IF LEN(H$) THEN 20 

30 PRINT C:GOTO 10 
40 ' 

100 'Decimal to Hex Converter 
no INPUT N:L$="" 

120 L=N-INT(N/16)»16:L$=CHR$(L+48-7*(L >9) )+L$:N=INT(N/16) : IF N THEN 120 
130 PRINT L$;G0T0 110 

The work is done in lines 20 and 120. The other lines are just there to process 
inputs arxl outputs. The prograinCs) will handle numbers of any length. 

- Allan Clarke 


COLOUR GENIE G-MON MONITOR CORRECTION 

This is the correction which will get the 32K version of G-MON (Computing Today 
- Feb 84) working properly. The author incorporated two boo-boos and didn't 
explaiTi the need to reserve memory. 

The steps needed ax'e: 

1 . Reserve memory of 48000 when answering MEM SIZE? 

2. CLOAD G-MON (IbK) and RUN it. 

3. Cairy out the patch procedure as in the ax'ticle but do not, repieat not. 
alter BDD9 or- BDF3 to COH. (Delete these two lines in your copy of the 
article. ) 

4. Check that BF87 has been changed from C04 to 30H. This correction was 
in a later issue of Computing Today. 

5. Now make a SYSTEM tape of the 32K version as in the ax'ticle. 

It is necessary to reserve memory when using machine code programs at the Lop of 
memory. The BASIC interpreter uses this ai'ea to handle strings and this will 
clobber any machine code4 if you have not protected high memory. The string 
working area is moved just below the memory size figui'e that you set at MEM 
SIZE?. 

I would also suggest that you make a 16K SYSTEM tape of G-MON. as there will be 
occasions when the 32K version is in conflict with a SYSTEM program you wish to 
examine. You can call these two versions GMON-MI and GMON-LO. 

Note: You can lower your program running time by adding the following line to 
the original listing: 

5 DEFINT A.I.T. 

BASIC processes integers faster than real numbers. 


- Allan Clarke 


list of financial colour genie group members M W 18/6/84 


ALVAREZ . Fred 

49 Astley Ave. New Lynn 

873 120 


AVIS. Stephen 

12 Ruru Crescent . PutaruiTj 

7750 

Country 

DARKER. Anne & family 

1 Carbery Place. Manurewa 

267 4833 


BERMAN. Robert 

lb Asbury Cres. Campbells Bay 

478 4022 

Student 

BISHOP. Chri. -3 

6 Jenanne Place. Glenfield 

444 5301 


BURTON. Ron 

P 0 Box 208. Te Aroha 

625 Man. 

Country 

BYRNES. Ces 

31 Rosehill Drive.Papakura 

298 4107 

Country 

CARIAN. Craig 

42A Comins Cres. Mission Bay 

583 061 


Postal Box 4326 . Auckland 

IXnOLDSON. David 6. family 80 Woolfield Rd.Papatoetoe 

278 7598 


DUNNINQIAM. Neville 

5 Kingswood Rd.Papatoetoe 

278 3105 


DYER. Ray 

5 Browne Street.Kawerau 

6199 Kaw. 

Counti-y 

EDWARDS. D.G. 

10 Fairview Ave.Feilding 


Country 

EUSAK.Alex 6. Kevyn 

14 Awakino Place. Manurewa 

266 7423 


FISHER. Peter 

64 Old Wairoa Rd.Papakura 

298 4654 


GEBBIE . George 

141 Flanshaw Rd.Te Atatu Sth 

83 46028 


GOLDIE. Willie & Andrew 

24 Douglas Ave. ML Albert 

867 533 


GORDON. Terry 

99 Reeves Rd.Pakuranga 

566 564 


®EEM. Gordon & family 

62 Rajkot Tce.Khandallah.Wgn4 


Country 

GREEN. Mike 

49 Astley Ave. New Lynn 

873 120 

Student 

(a^USNING.H.N. 

48 Beatty Rd. Pukekohe 

86 712 

Country 

GURNEY. P. A. 

10 Norfolk Rise. Waiuku 

59 682 

Country 

HAMILL. family 

26 Ashlynne Ave.Papatoetoe 

278 9585 


HARNESS. Justin 

18 Wynyard Rd.Mt Eden 

602 189 

Student 

HARRIS. Ber-t 6^ family 

15 Seakens Way. Glen Eden 

818 4660 


HILL.Gerrard a family 

86 Wallace Rd.Papatoetoe 

278 3446 


HOLES. Freda 6. family 

10 Rowan Terrace. Te Atatu Sth 

33 45244 


* HUGGINS. Nola 

612 Mt Albert Rd, Royal Oak 

655 718 


* HYNDS.Kon 

13 Ngahue Cres. Whenuapai 

416 7404 


IRVINE. Robyn 

430 Massey Rd.Mangere East 

275 7007 


KAY. Ross 

2/9 Longreach Drive. Glen Eden 

818 4818 


LEWIS. Stuai't 

39 Hi 11 crest Ave. Rotorua 


Country 

LIW)EL. family 

91 Taikata Rd.Te Atatu Nth 

834 7129 


LOCKERBIE. Claire 8» Roger 

63 Grampian Road. St Heliers 

580 270 


MacALPINE.Mr E. 

45 Mutu St.Te Awainutu 


Country 

McGILL. Keith 

15 Manapoui'i Place.Pakuranga 

565 643 

METCALFE. E.K. 

Box 13031 .University of 
Waikato P.O.. Hamilton 


Country 

MILLAR. Robert 

17 Onewa Rd. Northcote 

486 504 

Student 

MILLS. Andrew 

MITCHELL. Geoff 

59 Blackbeech St. Akatarawa. 
Lower Hutt. 

Box 95 .Mangawhai .Northland. 


Country 

Country 

MULLEN. Peter 

54 Park Road. Glenfield 

444 9155 

MUZYKA.Geor'ge 

33 Vermont St. Ponsonby 

789 176 

Student 


* Cowiittee members 


LIST OP FINAMCIAL MEMBERS 

continued 



Page 2 

PETERS, D.R. 

6 Tone Lane, Whakatane 



Country 

RICHH(»iD.Bob 

181 Browns Day Rd, Browns Bay 

478 

4745 


ROBINSON, Ian 

4 Kingsley Street, Gisborne 



Country 

* ROOTS. Ernie 

512 Glenfield Rd.Glenfield 

444 

9669 


* RUSSELL, Andy 

2 Takitimu St, Whenuapai 

416 

6249 


SAUNDERS, A. M. 

96 Oriel Ave, Tawa, Wellington 



Country 

SAVILLE, family 

7A Southlynn Rd.Titirangi 

817 

6491 


SCOTHERN,D.J. 

64 Princess Road, Taur'anga 



Country 

SIMPSON, Ron 

25 Renata Cres.Te Atatu Nth 

834 

6987 


SMITH, Barry 

23 Eliot St, New Plymouth 



Country 

SPRATT , Dave 

11 Ball Place. Mt Roskill 

675 

676 


STAI«E,Mrs L.M. 

Urxjuhart Rd , Karaka . R . D . 1 . 





Papakura 



Country 

STEPHENS, Frances family 35 Raux'enga Ave. Royal Oak 

654 

120 


STRANAOIAN, family 

29 Haseler' Cres.Howick 

535 

7450 


TODD, A.J. 

46A Hutton Street. Otahuhu 

276 

7886 


TRUE. Murray & Anne 

4/503 Oliphant Rd, Hastings 



Country 

TUAVERA , Jef f et y 

732 Sandringham Rd.Surd. 

693 

986 


WALKER, Barry a Irene 

20 Ellesmere Cr es. Palm. Nor Ih 



Country 

WALKER. David 

Kiwitea.No 7 R.D.Foilding 



Country 

WAWMAN.Don 

5/53 Bellevue Rd.Mt Eden 

797 

440 X685(work) 

WESSELING, Ralph 

112 Pt View Drive. Howick 

535 

6134 


* WILLIAMS, Olweri 

3/26A West End Rd. Herne Bay 

761 

954 



* -Conwittee Membei's 


THIS !S h CO.>!PLETa.r M.TaED ’^tSSlON OF mi AS PUBLISHED tM A F-ZCCrr NEVSLErrER 
IT HAS SHIN ADDED TO nJiD CHnIiGSD SY BARkT m IRES t!AU'£R OF r-:LOIH; 


70 ELSE IF 0«='y THEN 450 


1 REN 

2 REN 

3 REN 

10 Pi31 «ORK 

20 SX=150C;S:»0:COLOUR7 

30 CLS;£S=C;PRi:iT?lf,3,’DC YOU NAIiT I!;STRU"lC:iS':PRIIIIS:57,’!Y/II)‘ 
40 IF SCIS: THEN £:=SC 
50 £C*0 

60 PSIfirrSO, ’HIGHEST SCORE •;S2 
70 Q»=!HKEY«:IF GIO’Y’ AND QIO’K’ THEN 
30 PRINTe227.’0K NO INSTRUCTIONS’ 

90 FOR tl-1 TO 5;FOR E=1 TO 200:KEXI E.N 
100 CLS:COLOUR7;£P=0 
no FRINT81,STRIKG«(38.2431 
120 PRIIIT8B31,3TR!HG»i33.243l 
130 FCR DR*41 TO 841 STEP 40 
140 FS1NT»DR,CHRM:43);?RINT?DR*37,CHRU:53) 

150 I3TCR 
160 CCLO'JHl 
170 A=E33 

180 FRINT?A.CHRI(:30) 

199 COLOUR! 

2C0 bb=ped;(i>?B40) 

210 IF BB=32 THEN A=A-l;C03UB 550 

229 IF B&=64 THEN A=AM;COSUB 550 

230 IF B3=16 THEN A=A*40;GOSUB 550 
240 IF BB= 8 THEN A=A-40:G03UB 550 
250 IF B&=123 THEN COSUB 520 
260 IF SP;=755 THEN SS=S3-1 ;SC=SC*SX ; S, 

270 IFFEEK:17408+A)=243 THEN 340 
230 IFEBW AND E3<65 THEN GCSUB 540 
290 SX=SX-I:IF SX=0 GOTO 340 
300 IF SX =0 GOTO 440 
310 PRIHr?92l, ’SCORE’ :SC; 

320 PRINT8932. ’LIVES LEFT’.'T-SS;’ TINE ’;SX; 

330 GOTO 180 

340 COLOURS :PRINTSA.CHRIt254)*CHR« (249) 

350 SOUND8,I5 
360 SOUra7,7 
370 SOUND8,16 
380 50UND9,16 
390 SOUNDtO.U 
400 £OUNDi:.56 
410 SOUNDIS.O 
420 FOR 0 *0 TO lOOOlNEXT 
430 COLOUR 4 

440 SX=1500;SS=SSM;IF SS)=3 GOTO 30ELSE GOTO 100 
450 CLSiPRlNT’THIS IS A SIMPLE VERSION OF TORN,’ 

455 PRIKT’IHE AIN IS TO FILL ALL THE BLANK SPACES 
460 PRINT:PRINT:PRIHT’USE THE ARRON KEYS TO MOVE.’ 

470 PRINT;PHINT:PRINT’IF YOU GET LOST PRESSING THE SPACE BAH 
480 PRlNT’Nia CHANGE THE COLOUR OF YOUR PLACE ’ 

490 PRINT ’BUT YOU COULD LOSE ALL YOUR POINTS I’ 


=1500:COTO 100 


1 1 -I ( 

U 0 R M Isa mod i f 

i ed 

form of the 

prooram in Issue 


3 of the 

Newsletter. The ma 

i n 

reason It is 

included is that i 

t i 

5 an example 

of a prooram using 

the 

arrow keys, j 

and the space bar. 

I f 

you disable 

the break key it c 

an 

t'e used too. 

The basis of it is: 



n = PEEK(5-,KF340) 



if A=1 Return Ijey 

was 

pressed ' 

if A = 2 Clear ): e y 

was 

pressed 

if .A = 4 Break )c ey 

was 

pressed 

1 f A=16 Down Arrow 

was 

pressed 

if n=32 Left Arrow 

was 

pressed 

if A=64 RightArrow 

was 

pressed 

if A=123 Spacebar 

was 

pressed 

J 

l:- LT 


YOU GET POINTS FOR DOING THIS. 


500 PRINTM08, ’PRESS RETURN TO COiniNUE’ 
510 CLS:COTO100 

520 SC«SC-(RND(SCn 1-1 ):COLOUR(RND( 15)1 
530 RETURN 

540-SOUND7,248;SOUND8,15;SOUND13,4: 

550 IF PEEXtl7408»A)=32 THEN SP*SPM: 

560 RETURN 


IINPUTK 


S0UND7. 255 (RETURN 
SOSCM 


P^9g; 


Vo3oi''^r~* 


T 





10 CLS 

:0 COLOURS :PRINT’PRESS 1 WHEN PAGE IS FULL FOR ANOTHER MULTICOLOURED PAGE* 
30 PRINT*PP£SS Z FOR A WORD 

40 FRINT’PRESSIKG ANY OTHER KEY BRINGS YOU BACK TO THE NORMAL SCREEN* 

50 PRINT*PRES3 BREAK TO END PROGRAM* 

60 PRIKT*PRESS ANY KO TO CONTINUE* 

70 X»*INKEY»:IFX»=** THEN GOTO 70 


80 BGRD 

90 FOR I =0 TO 959 
100 PRINTBI, CHR«!RND(200)+40); 
no COLOUR(RND(16n 
i:0 NEXT I 

120 A4=IiaEYJ:IF Af=**THEN GOTO 130 
140 IF A$=*1’THEN CLS:GOTO 80 
150 1? A4**:* THEN GOSUB 170:G0TO 130 
liO NEGRD;GOTO 130 
170 CLS 

leO PRTNTIPRINT 

190 PRINT* Y Y EEE SSSS 

Y Y E S 

Y EE SSSS 

YE S 

Y EEE SSSS * 

200 PxTtJRN 


D E MQNSTRATI 0 N program 


prints random colours or spells 
YES. 

This mode could have possi billies 
for program headings. 

The page only stays on while 
program is running or until MBGRD . 


R A MDQM NUMBERS - A lot of computers use RND( 1 ) 
where the Genie' uses RND ( 0 ) to do the same job. Enclosed 
is a photocopy of a section on using ERROR as a form of 
GOSUB. . The program listing in it works on a Colour Genie. 
It is from " BASIC PROGRAMMING PRIMER" Second Edition, by 
Mitchell Uaite and Michael Pardee. Ue have found this to 
be a helpful book for learning basic. 




To prevent my children -from accumulating exorbitant amounts o-f chips 
BlackJacU, by betting all on virtually unbeatable hands, and embarrassi 
the computer, I modified the program as follows: 

320C0L0UR2: INPUT-BET, HIT, STAND, OR REVIEW CARDS <B / H / S / R 
' >-)YN*:GOT0330 ' 

32SC0L0UR2: INPUT-BET OR HIT ( B / H ) " ; YNS 
326IFYN*=“B"ORYN**-H"THEN330ELSEGOT0323 

S90C0L0UR2: PRINT- YOU HAVE " SC - CHIPS -: INPUT " PLAY ANOTHER HAND <Y/N)-;YNS 
This may be of Interest to members. . 


ERROR Used es an Extended Form of COSUB 

ERROR can also be used in another way. one the designers of BASIC prob- 
ably didn’t think of. In the following program we will use ERROR not to 
imitate an error, but almost as if it were a normal COSUB statement. The 
arlvantage of using ERROR Instead of COSUB is that when an ERROR state- 
ment is executed. ERR is automatically set to the error number (specified by 
the number N in "ERROR N"). and ERL is set to the line number where the 
error occurred. It can be very useful for a subroutine to be able to figure out 
Ihe line number from which it was called, and it can also be useful to be able 
lo pass an "argument’’ (a number with different values) to the subroutine from 
ihe program which calls it. 

Here’s a program which shows how this might be done. The program asks 
for the user's name and age. If ihe name is longer than IS characters it prints 
"PLEASE USE A SHORTER NAME," If the age is less than 3 years or greater 
than 80, It assumes the user has made a nonserious repiv and prints ’PLEASE 
BE HONEST." (If you really are more than 80 or less than 3 vears old, you can 
change line 30 accordingly!) 


Lei's go through this step by step for the case of the user typing in ,m 
inappropriaie age; 1 20. for example. 

The first line of ihe program makes BASIC aware that, in the event of .tn 
error, control should go lo line 80. Then ihe program asks for the user’s las' 
name and his age. If. when he is asked his age. the user types (for exampUi 
120, then in line 50 the program will see that AC is greater than 80 and will 
go on lo Ihe next pan of the statement, which is ERROR 38. (Actually, am 
valid error number could be used here.) Executing this statement tak« u 
immediately lo Ihe error-trapping routine on line 90. There, on line 90. we 
first verify that the error is the one we expect (that is. number 38). )f it isn’t, 
we assume a "real" error (that is. one we hadn’t anticipated, such as a syntax 
errorl has taken place, and execute the ON ERROR GOTO 0 statement so that 
control will return lo BASIC lo deal with the error in the normal wav. How- 
ever, if Ihe error is number 38, we then go on lo check what line number it 
occurred on using the ERL function. In this case, it occurred on line number 
so. so we will execute the sccory pan of line 110. which is 

PRINT’P'..EASe"BE’ HOfftSt.-’ll^ESUME *0 'J 

Control will then go back to line 40, wliere the user will again be asked his 
age. If the error routine has not been called from either of the expected" line 
numbers, 30 or 50, then llie routine goes on to execute Ihe "ON ERROR 
GOTO 0" statement in line 120, which will return control to BASIC lo deal 
with a normal error. 


an.d WALKER of Eeildina. 


: ON EBROR GOTO aa " ' ■ ‘ ‘ " I 

I nJ- so INPUr-PLEASe ENTER YOUB LAST NAME": LnI ’ i" *. . V : | 

■hJJO IF LSNILNSI > iSTHEN ERROR M " . r"';'!’- ' ’ ' .. i 

, -'*aa IfjPur’ANO VOLlR AGE"; AG . -• ,1 , 

i’ fid IF aG< 3.0H AOiSaTKEN error 38 ' ’ 

; 80 PfliNr’TtiAhK YOU.''’-*.-" . • • ' 

-■^’’TO STOP r- I* '••'l : 

f-.vaOREM — error-trapping ROUTINE ’ - Tr - ■ " ' r ! 

s 90 IF ERR <> 38 THEN ON ERROR GOTO 0 'UNEXPECTED ERROR - 
[„• loo IF ERL-30 THEN PRINruSE A SHORTER NAME." : RESUME 20 
I ’ 110 IF ERL-50 then PRINT ’’PLEASE BE HONEST" : RESUME *0 1 

I 120 ON error GOTO 0 'UNeXPECTED LINE NUM3ER 


In this program we use Ihe ERROR stalemeni lo branch to ihe "error- 
Irapping ” routine at line 80 if either Ihe name typed in is loo long, or the age 
typed in is less lhan 3 or more than 80. Neither of these conditions is realiv an 
"error, ” of course V\le are simpiv using the error-handling statements to per- 
mit the rputrne to figure out which part of Ihe main program called the 
routine. 


Chart makes conversion easy 


A uniqu« c^a/l destined to 
used Dy anyone m (he comouter 
mdusiry has been produced by 
Control Microcomputers of 
Auckland. 

A handy reference for pr»> 
grammers and microcomputer 
users. It snowFS charaaer convw 
sions into oecimai. octai and 
hexadeemai codes, corrversons 
berM«en the bases and stAjctura 
of common charaaers and me 
essential parts of the common 
RS-232-C and Centronic 
intertaces. 

The chart, wtneh took the 
company's staff many houra to 
prepare, is pictured on (he fac- 
ing page. 

Control Micfocomouters' chief 
executive, Basil Orr, explains 
how to use It: 

Interfacing charts 

These charts have been 
designed to assist m interfacing 
pnnters and other penpherels to 
computer systems. 

Code conversion table 

Pnnteri require control 
quer>ces to enaoie their spectaJ 
features, such as changing pnni 
sizes, to be implemented. This 
cnart shows ail the standard 
Characters together with their 
various numeric representa- 
tions. When using BASIC, 
characters can be represented 


by a decimaJ number eg. A « 
CHRS<65). Operaung systems, 
monitors and vwxd processor irv 
itiaiisation often require hex* 
idecimai fBase i6) numbers. 
Here A m ’41. The mmeomputar 
worid often uses octal numbers, 
tn this case A • ”101. This chart 
also oonvem numbers up to 255 
between the three bases. 

The comrof codes, used for 
controtting data transmission 
and peripheral features are 
gtven with explanations. They 
can be generated by using the 
conirof key and (he ippropnat# 
upper case character e.g. 
<CTRL> G gives the Beil, and 
<CTRL> M IS the same as a 
carriage return. The ESC 
character (CHflS(27), hex* 
adecimat ' 1 & octal *033) is often 
used tor enabling command 
sequences. 

Centronics parallel 
Interlace 

This interface system is often 
used With pnmers. The com- 
puter sets the eghi dau lines to 
the byte required. The data 
strobe line which is normally 
about 4 5 voHs IS momenianly 
pulsed to 0 vofts to transfer tn# 
Chiricter lo the pnnttc 

The pnmer leiis the computer 
when it can send another 
character by pulsing the 


acknowledge fine. Ahemaovefy. 
the computer can keep sending 
charaaers unul the pnnter sets 
the busy itne to ♦ vorts. Paper 
empty, selea status and faoC 
corv^itKXis can be sensed by the 
computer using the designated 
lines. 

RS-232-C (V24) simplified 

This sehat commuoicaiions 
system IS used exrensivefy by 
(erminats and by some pnmers. 
Two-way communication re- 
quires only one line for data 
transfer to (he computer, ano 
one from the computer as well 
as the signal ground. The data 
bits of a charaaer are transmit- 
ted sequeniialfy. prefixed by a 
sun bit. and followed sometimes 
by a parity bit to check for cor- 
rect transmtsson. and afways by 
stop bits, the characters art 
transmitted sequentially m this 
format The Baud rate is the 
numoer of bits transmitted per 
second. The control lines carry 
status information including 
busy and ready berween com- 
puter and terminal. Seldom are 
they all used together. In many 
appiicaoons control fines are not 
required. The chart correlates 
the various circurt names used 
in manuals with the p»n numoec. 
tunaion. source of the signal 
and description. 


CODE CONVERSION TABLE 


H s Heii«d*ciB*l. 0 * Octal. 0 « Oaeiaal. CC * Control Code. 

C > ASCII Character. (Aaerican Standard Code for Znforaation Interchange) 


nr 

0 

» 

CC 

EXPLANATION 

H 

0 

D 


N 

0 

D 

c 


0 

0 

C 

H 

0 

0 

u 

0 

0 

nr 

0 

0 

H 

0 

D 

00 

000 

0 

NUC 

Null 

20 

040 

32 


40 

100 

64 

9 

60 

140 

96 

1 

80 

200 

128 

AO 

240 

160 

CO 

300 

192 

EO 

340 

224 

01 

001 

1 

SOH 

Start of Heading 

21 

041 

33 

1 

41 

101 

65 

A 

61 

141 

97 

a 

81 

201 

129 

A1 

241 

161 

Cl 

301 

193 

El 

341 

225 

02 

002 

2 

ST* 

Start of Teit 

22 

042 

34 

•• 

42 

102 

66 

B 

62 

142 

98 

b 

82 

202 

130 

A2 

242 

162 

C2 

302 

194 

E2 

342 

226 

03 

003 

3 

ET» 

End of Tot 

23 

043 

35 

« 

43 

103 

67 

C 

63 

143 

99 

c 

83 

203 

131 

A3 

243 

163 

C3 

303 

195 

E3 

343 

227 

04 

004 

K 

EOT 

End Transmission 

24 

044 

36 

1 

44 

104 

68 

D 

64 

144 

100 

d 

84 

204 

132 

A4 

244 

164 

C4 

304 

196 

! E4 

344 

228 

05 

005 

5 

ENQ 

Enquiry 

25 

045 

37 

X 

45 

105 

69 

E 

65 

145 

101 

e 

85 

205 

133 

A5 

245 

165 

C5 

305 

197 

ES 

345 

229 

06 

006 

6 

ACK 

Acknowledge 

26 

046 

38 

( 

46 

106 

70 


66 

146 

102 

f 

86 

206 

134 

A6 

246 

166 

C6 

306 

198 

E6 

346 

230 

07 

007 

7 

BEL 

Bell 

27 

047 

39 

• 

47 

107 

71 

G 

67 

147 

103 

9 

87 

207 

135 

A7 

247 

167 

C7 

307 

199 

E7 

347 

231 

08 

010 

8 

BS 

Backspace 

28 

050 

40 

( 

48 

110 

72 

H 

68 

150 

104 

h 

88 

210 

136 

A8 

250 

168 

C8 

310 

200 

E8 

350 

232 

09 

Oil 

9 

HT 

Horiaontal Tab 

29 

051 

41 

) 

49 

111 

73 

I 

69 

151 

105 

i 

89 

211 

137 

A9 

251 

169 

C9 

311 

201 

E9 

351 

233 

OA 

012 

10 

LF 

Line Feed 

2A 

052 

42 

* 

4A 

112 

74 

J 

6* 

152 

106 

j 

8A 

212 

138 

AA 

252 

170 

CA 

312 

202 

EA 

352 

234 

>0B 

013 

11 

VT 

Vertical Tab 

2B 

053 

43 

4. 

4B 

113 

75 

K 

6B 

153 

107 

k 

8B 

213 

139 

AB 

253 

171 

C8 

313 

203 

E8 

353 

235 

OC 

014 

12 

FF 

Form Feed 

2C 

054 

44 

t 

4C 

114 

76 

L 

6C 

154 

108 

1 

8C 

214 

140 

AC 

254 

172 

CC 

314 

204 

EC 

354 

236 

lOD 

015 

13 

CR 

Carriage Return 

2D 

055 

45 

- 

40 

115 

77 

H 

6D 

155 

109 

m 

80 

215 

141 

AO 

255 

173 

CO 

315 

205 

ED 

355 

237 

OE 

016 

14 

SO 

Shift-Out 

2E 

056 

46 

• 

<•£ 

116 

78 

N 

6E 

156 

110 

n 

8£ 

216 

142 

AE 

256 

174 

CE 

316 

206 

EE 

356 

238 

OF 

017 

15 

SI 

Shi Ft-In 

2F 

057 

47 

/ 

4F 

117 

79 

0 

6F 

157 

111 

0 

8F 

217 

143 

AF 

257 

175 

CF 

317 

207 

EF 

357 

239 , 

10 

020 

16 

DLE 

Data Link Escape 

30 

060 

48 

0 

50 

120 

80 

P 

70 

160 

112 

P 

90 

220 

144 

BO 

260 

176 

DO 

320 

208 

FO 

360 

240 

11 

021 

17 

DC1 

X-ON 

31 

061 

49 

1 

51 

121 

81 

Q 

71 

161 

113 

g 

91 

221 

145 

81 

261 

177 

D1 

321 

209 

FI 

361 

241 

12 

022 

18 

0C2 

Device Control 2 

32 

062 

50 

2 

52 

122 

82 

R 


162 

114 

r 

92 

222 

146 

B2 

262 

178 

02 

322 

210 

F2 

362 

242 

13 

C23 

19 

0C3 

X-OFF 

33 

063 

51 

3 

53 

123 

83 

S 

73 

163 

115 

s 

93 

223 

147 

B3 

263 

179 

D3 

323 

211 

F3 

363 

243 

14 

024 

20 

6C4 

Device Control 4 

34 

064 

52 

4 

54 

124 

84 

T 

74 

164 

116 

t 

94 

224 

148 

64 

264 

180 

04 

324 

212 

F4 

364 

244 

5 

025 

21 

NAK 

Not Acknowledge 

35 

065 

53 

5 

5S 

125 

85 

U 

75 

165 

117 

u 

95 

225 

149 

65 

265 

181 

05 

325 

213 

F5 

365 

245 

6 

026 

22 

SYN 

Synchronous Idle 

36 

066 

54 

6 

56 

126 

86 

V 

76, 

166 

118 

V 

96 

226 

150 

B6 

266 

182 

06 

326 

214 

F6 

366 

246 

.17 

027 

23 

ETB 

End Trans. Block 

37 

067 

55 

7 

57 

127 

87 

u 

77 

167 

119 

w 

97 

227 

151 

B7 

267 

183 

07 

327 

215 

f7 

367 

247 

. IS 

030 

24 

CAN 

Cancel 

38 

070 

56 

8 

58 

130 

88 

X 

78 

170 

120 

1 

98 

230 

152 

B8 

270 

184 

08 

330 

216 

F8 

370 

248 

l” 

031 

25 

EM 

End of Medium 

39 

071 

57 


59 

131 

89 

Y 

79 

171 

121 

y 

99 

231 

153 

B9 

271 

185 

09 

331 

217 

f9 

371 

249 

1 ’* 

032 

26 

SUB 

Substitute Char 

3A 

072 

58 

: 

5A 

132 

90 

z 

7A 

172 

122 

z 

9A 

232 

154 

BA 

272 

186 

DA 

332 

218 

FA 

372 

250 

10 

033 

27 

ESC 

Escape 

3B 

073 

59 

0 

5B 

133 

91 

c 

7B 

173 

123 

{ 

99 

233 

155 

BB 

273 

187 

DB 

333 

219 

FB 

373 

251 

1C 

034 

28 

FS 

File Separator 

3C 

074 

60 

< 

5C 

134 

92 

\ 

7C 

174 

124 

1 

VC 

234 

156 

BC 

274 

188 

OC 

334 

220 

FC 

374 

252 , 

10 

035 

29 

GS 

Group Separetor 

3D 

075 

61 

X 

50 

135 

93 

] 

70 

175 

125 

> 

9D 

235 

157 

BD 

275 

189 

DO 

335 

221 

FD 

375 

253 , 

1 1E 

036 

30 

RS 

Record Separator 

3E 

076 

62 

> 

5E 

136 

94 


7E 

176 

126 

" 

9E 

236 

158 

BE 

276 

190 

OE 

336 

222 

FE 

376 

254 

IF 

037 

31 

us 

Unit Separator 

3F 

077 

63 

? 

5F 

137 

95 


7F 

177 

127 


9F 

237 

159 

BF 

277 

191 

OF 

337 

223 

FF 

377 

255 

L_ 



/N 

.To generate use Control Key 

<CTRL> wi 

th 
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RS 232-C (V24) SIMPLIFIED 


CENTRONICS PARALLEL INTERFACE 


25 pin connector using round terminals 
View of front of Socket (female connector) 




13 12 11 10 9 8 > 6 5 4 3 2 r '| 

C 


25 24 23 22 21 20 19 18 17 16 15 U 


OTE = Data Terminal Eqpt (Printer, Modem port) 

JCE = Data Communications Eqpt (Printer port, Modem) 

PIN CIRCUIT FUNC SRC CODE DESCRIPTION | 

~T AA ioi Gnd ^ FG 


2 

BA 

103 

Data 

DTE 

TO 

3 

8B 

104 

Data 

DCE 

RD 

4 

CA 

105 

Cont 

DTE 

RTS 

5 

CB 

106 

Cent 

DCE 

CTS 

6 

CC 

107 

Cont 

DCE 

DSR 

7 

AB 

102 

Gnd 

- 

SG 

8 

CF 

109 

Cont 

DCE 

CD- 

20 

CD 

108 

Cont 

DTE 

DTR 

21 

CG 

no 

Cont 

DCE 

SQD 

22 

CE 

125 

Cont 

DCE 

RI 

23 

CM 

111 

Cont 

DTE 

DRS 


Frame Ground 
Transmit Data 
Receive Data 
Ready to Send 
Clear to Send 
Data Set Ready 
Signal Ground 
Carrier Detect 
Data Terminal Ready 
Signal Quality Detect ' 
Ring Indicator j 

Data Rate Select 



( 0 Space On 


1 Mark Off 

i "3 S o S 

• c - — 

_ •• 9 ** *« *•* 

0*«w 

V* V 
w e 
— o 


Si 


Control sigrvals must be on to allo« data transfer 


36 pin connector using flat contacts. 

View of front of socket (female - groove down miadle) 



IS 17 ’6 15 m3 12 11 tC 5 8 7 6 5 4 3 2 ’ L_ \ 


\ 36 35 34 33 32 31 30 29 28 27 26 25 21 23 22 21 20 19 p , 


f 

1 PIN 

SIGNAL 


SRC 

1 PIN 

SIGNAL 


SRC 

1 1 

* Data strobe 

pulse 

Comp 

i 19 

Signal 

ground 

- 

2 

Data bit 1 

(LSB) 

Comp 

20 

Signal 

ground 

- 

i 3 

Data bit 2 


Comp 

21 

Signal 

ground 

- 


Data bit 3 


Comp 

22 

Signal 

ground 

- 

1 5 

Data bit 4 


Comp 

23 

Signal 

ground 

- 

6 

Data bit 5 


Comp 

.24 

Signa 1 

ground 

- 

7 

Data bit 6 


Comp 

25 

Signal 

ground 

- 

8 

Data bit 7 


Comp 

26 

Signa 1 

ground 

- 

: 9 

Data bit 8 

(MSB) 

Comp 

27 

Signa 1 

ground 

- 

' 10 

• Acknquledge 

pulse 

Prt 

28 

Signal 

ground 

- 

11 

Busy 


Prt 

29 

Signal 

ground 

- 

12 

Paper Empty 


Prt 

30 

Signal 

ground 

- 

13 

Select 


Prt 

31 

• Input 

: priae 

Come 

! 14 

Signal ground 


- 

32 

• Fault 

Prt 

. IS 

No connection 


- 

33 

Signal 

ground 

- 

' 16 

Signal ground 


- 

34 

* Eit prime 

Comp 

17 

Chassis ground 

- 

35 

No connection 

- 

18 

♦ 5 volts OC 


Prt 

36 

Input busx 

Prt 


Signals TTU levels: Active *2 to rSv, False «0 to 
• Inverted signals: Active *0 to rO-AV, False to rSv 


Compiiec3 Dy 



Microcomputers 


P 0 Bo* 68-474 Auckland. Pr i09) 600-687 






converted for the Colour Genie bv George Muiyka 


LUNAR LANDING 

TS3 

2 PRINTIl7,'LEB*:PRIIIT»35.*tmttf 
4 PRIHT:PSIHT:PR1MT ’CREATIVE COBPUTINC HORRISTOffl, NEV JERSEY’ 

7 HER R0CKT2 IS AN IMTERACTI'/E GAME THAT SIHULATES A LUNAR 

8 RED LANDING IS SIHILAR TO THAT OP THE APOaO PROGRAN. 

9 REN THERE IS ABSOLUTaY NO CHANCE INVOLVED 

10 ZI=’GO’ 

IS BI>1 

20 N=I7.75 
2S Fl«5.25 
30 N«7.5 
33 R0SV24 
40 V0»1.29 
43 T=0 
50 H0=40 
33 RsROtHO 
60 A=-3.423 
43 RI=0 

70 Al=8.84361E-04 
73 R3=0 
80 A3=0 
85 NI=7.45 
70 H0=R1 
95 0=750 
100 T1=0 
105 F=0 
110 P=0 
115 N=1 

120 r:=o 

125 £=0 
130 C=0 

133 IP :«=’YS5’ THEN 1130 
140 PRINT 

145 PfilNT’LLOiAR LANDING SlflULATIOH’ :PRINT’===== ======= ==========• ;PR!nI 

150 PRINT 

155 PRINT’HA'.'E YOU P^CWN AN APOLLO/LEN lUSSION BEFORE’; 

140 PRINT’ (YES OR NO)’: 

165 INPUT Qi 

170 IP Ql=’YES’ THEN 190 
175 IP 34=’NO’ THEN 205 

180 PRINT’ JUST ANSVER THE GLESTICN, PLEASE, ’; 

185 GOTO liO 

190 PRINT 

191 PRINT’ 1=HETRIC 0=ENCLISH’ 

193 PRINT’INPUT HEASUREJIENT OPTION KUHBER’: 

200 GOTO 225 
205 PRINT 

210 PRINT’WICH SYSTEM CP MEASUREMENT DO YOU PREFERI” 

215 PRINT’ 1=METRIC 0=E1IGLISH’ 

220 PRINT’ENTER THE APPROPRIATE NUMBER’; 

223 lOTT K 
230 PRINT 

235 IP K=0 THEN 280 

240 IP K=I THEN 250 

245 GOTO 220 
250 2=1352.8 
253 M»=’MnRES’ 

240 G3=3.6 

265 Nl=’ KILOMETRES’ 

270 G5=1000 
275 GOTO 303 
280 2=4080 




:b 5 HM'FEn* 

! 290 G3=.592 

295 NI*'M. BILES' 

300 G5»2 

303 IF Bl=3 THEN 670 
310 IF QJ^'YES' THEM 485 
312 CLS;PRINT;PRINT:PRINT 
) 315 PRINT 

320 PRINT'iYCU ARE ON A LUNAR LANDING BISSION<';PRINT;PRINT 

321 PRINT* AS THE PILOT OF THE LUNAR EUCURSION' 

325 PRINT'NOOULE. YOU KILL BE EXPECTED TO* 

330 PRINT'GIVE CERTAIN COIfflANDS TO THE NODULE* 

331 PRINT'NAVIGATION SYSTEM.* 

335 PRINT* THE OH-BCARD COMPUTER HILL GI'TE A* 

33i PRINT'RUNNING ACCOUNT OF INFORMATION* 

340 PRINT'NEEE'ED TO NAVIGATE THE SHIP.* 

342 PRINT:PRniT 
345 PRIHTiPRINT 

355 INPUT* PRESS (RHURN) TO CONTINUE. . .'lIDll 
360 CLS 

365 FRINT:PRINT* THE AniTUDE ANGLE CALLED FOR IS* :PR1NT*DESCRI8ED AS FOLLOWS:* 

370 PRINT* ;PRI((T" ♦ OR -180 DEC. IS ♦ -180,180 ♦* 

375 PRINT’DIRECTLY AVAY FROM ♦ ♦ ♦* 

376 PRINT'THE MOON. ♦ -90 < -♦- > 90+' 

378 PRINT* ♦ ®T 

380 PRINT* -90 DEG. IS ON A ♦ 0 ♦* 

392 PR I NT 'TANGENT IN THE + ♦* 

385 PRINT’DIRECTICN OF ORBIT. ♦<< DIRECTION M** 

387 PRINT* ♦ OF ORBIT +* 

380 PRINT* + ♦' 

400 PRINT* tPO DEG. IS ON A ♦SURFACE CF KOON+** 

405 PR I NT ‘TANGENT FROM THE ♦/////, 7/7//////♦• 

410 PRINT'DIRECTION CF ORBIT. ♦++++♦.♦♦♦+♦♦♦♦♦♦• 

415 PRINT 

420 PRINT* 0 (ZERO' DEG. IS* 

425 pri(;t*dire;:ly tovard the moon.* 

427 PRINT;PRi:iT; INPUT* PRESS (RETURN) TO CCNTINUE. , . * ::.Tt 

428 CLS 

435 PRINT* ALL ANGLES BET’UEEN -ISO AND 1:0 DEGPxES. ARE ACCEPTED.* 

440 PRINT 

445 ?R!NT*::l au UNIT = 1 SEC. AT MAT. THRUST; :* :PR!NT:PRINT 

450 PRINT* A’iY DISCREPANCIES ARE ACCCUNTED FOR INTHE USE OF TUa FDR AN ATTITUDE CHANGE." 

460 PRINT* AVAILABLE ENGINE POWER: 0 (DEWl AND ANY VALUE BETWEEN 10 A‘iD 100 PERCENT.* 

470 PRINT:FRINT 

475 PRINT* 'NEGATIVE THRUST CR TIME IS PRCHIBITEDV* 

430 PRINT 

482 PRINT:FRINT:FRIIIT:FRINT; INPUT* PRaS (RETUPUI' TO CONTINUE. ..* 'ZYI 
485 CLS 

490 PRINT*!HFUT;*:PRINT* TIME INTERVAL IN SECONDS (TI* 


4‘>5 PRINT* PERCENTAGE OF THRUST (PI* 

500 PRINT* AniTUTE ANGLE IN CEGREES (A)* 

505 PRINT 

510 IF OI=*YES* THEN 535 
515 FRIHT'FOR EXAMPLE:* 

520 PRINT* T.P.A* 10.65,-60* 


525 FRINT'TO AB-jRT THE MiaiCN AT ANY TIME. ENTER 0,0,0* 

53G PRINT 

535 PRINT*CUTPUT:tTOTftL TIME IN aAPSED SECCNDS* 

540 PRINT* IHEIGHT IN *;M« 

545 PRINT* SDIETANCE FROM LANDING SITE IN "Ml 

550 PRINT* :VERIICAL vaOSIIY IN "Ml;*/ SECCND* 

555 PRINT* tHGRIZONTAL VELOCITY IN "Ml */ SESCND* 

5o0 PRINT* IFUa UNITS REMi.INIKG* 


545 fSI.'IT 

547 FRINTIPRIMT: INPUT' PRESS <RETURN> TO START tllSSICN. .. .VCTI 

548 CIS 

570 GOTO 470 
573 PRINT 

580 PRINT' T.P.A*: 

585 INPUT T1,F,P 

590 F»F/I0fl 

595 IF TKO THEN 905 

400 IF T1=0 THEN 1090 

405 IF ABS(F-.05I>1 THEN 945 

410 IF ABS(F-.05)<.05 THEN 945 

415 IF ABS(P)>180 THEN 925 

420 N=20 

425 IF TU400 THEN 435 

430 N»Tl/20 

435 T1=TI/N 

440 P=P13. 14159/180 

445 S=SINIP1 

450 C^CCSIP) 

455 K2=H0»Tl»F/B 

440 R3=-.5»R0»((V0/R)t2HR»AUAI 

463 A3=-2»RUA1/R 

470 FOR N1 TO N 

675 IF N1=0 THEN 715 

480 HI =51-52 

485 IF 51>0 THEN 725 

490 F=Fm»Hl/H2) 

495 52=51 *52 

TOO PRINT'YOU ARE OUT OF FUEL....' 

705 51=0 
710 GOTO 725 
715 F=0 
720 52=0 
725 5=5-. 5452 
730 R4=R3 

735 R3=-.5tR04((V0/R)t2)+RtAUAl 
740 R:=i3tR3-R4l/2*.005:4IFl»FXC/5 
745 A4=A3 
750 A3=-2tRlfAI/R 

755 A:=(3tA3-A4)/2*.0056»FltF»S/(5XR) 

740 )I=RUTH.5tR2tTlJTl 

745 R=R*X 

77C H0=H0a 

775 Rl=Rl»R2tTl 

730 A=A*AliTl*.5»A2tTltIl 

765 A1=A1+A24T1 

793 5=5-. 5452 

795 T=T+T1 

300 IF H0<3.287828E-04 THEN 810 

805 NEXT I 

810 H=H0t2 

315 H1=R1»2 

820 C=R0IAtZ 

625 D;=RtAlt2 

530 T2=5UB/N0 

332 PRINT 

333 IF 5« = '5ETR£S' THEN LET .'!I='H'EL£E LET ,’.4 = 'F* 

835 P.RINT'TOTAL TIME IS) ■;T;PR1NT'HEIGHT CiX);*) • :H:PSINT'500N RANGE ('.'Xt 

CITY (VXIi'/S) ” 'iHtiPRINT'HOR. vaOCITY l‘;X»,"/S) — '.'Ol iPRIllT'F'JEl UNITS RE.5AINING -- '.-TT 
845 IF HO<3.2878:8E-04 THEN 880 
850 IF R0»A>I44.4734 THEN 1050 
655 IF HDO THDI 530 



863 F*0 
870 P»0 
875 GOTO 620 

880 IF Rl<-8.21937E-04 THEM 1020 
883 IF ABS(RtAl)>4.931742C-04 THEN 1020 
890 IF H0<-3.287828E-04 THEN 1020 
893 IF ABS(DI>10tZ THEN 1063 
900 GOTO 993 
905 PRINT 

910 PRIMT'THIS SPACECRAFT IS NOT ABLE TO VIOLATE THE SPACE-'; 

915 PRINT'TIHE CONTINUUH,' 

920 GOTO 573 
923 PRINT 

930 PRINT* IF YOU VANT TO SPIN AROUND, CO OUTSIDE THE HODULE* 

935 PRINT'FOR AN E.V.A.' 

940 GOTO 573 
945 PRINT 

950 PRINT'IHPOSSIBLE THRUST VALUE 
933 IF F<0 THEN 983 ■ 

960 IF F-.3<.03 THEN 973 
963 PRIKT'TOO LARGE* 

970 GOTO 373 
973 PRINT’TOO SHAa* 

980 GOTO 575 
983 PRINT'HEGATIVE* 

990 GOTO 375 
995 PRINT 

1000 PRINT’TRANQUILITY BASE HERE -- THE EAGLE HAS LANDED* 

1003 PRINT'CONGRADULATIONS -- THERE VAS NO SPACECRAFT DANAGE* 

1010 PRINT'YOU NAY NOV PROCEED VITH SURFACE EXPLORATION.* 

1015 GOTO 1100 
1020 PRINT 

1025 PRINT*CRASH "II '!'!'!* 

1030 PRINT*YOUR IHPACT CREATED A CRATER *;ABS(H) .'Ml; * DEE?.* 

1035 X1=SQR(DUD1»HUH1I4G3 

1040 PRIHT*AT CONTACT YOU VERE TRAVELLING *;X1 ;N1; ’/HR* 

1045 GOTO 1100 
1030 PRINT 

1055 PRINT’YOU HAVE BEEN LOST IN SPACE VITH NO HOPE OF RECOVERY.* 

1060 GOTO 1100 

1065 PRINT*YOU ARE DCVN SAFELY -* 

1073 PRINT I 

1080 PRINT*BUT MISSED THE LANDING SITE BY *;AES(D/G5) ;N1 ' 

1035 GOTO 1100 
1090 PRINT 

1095 PRINT*MISSION ABORTED* 

1100 PRINT 

1105 PRINT*DO YOU VANT TO TRY IT AGAIN (YES/NO) 7* 

1110 INPUT 21 

1115 IF 21=*YES* THEN 20 

1120 IF 21=*NO* THEN 1130 

1125 GOTO 1105 

1130 PRINT 

1135 PRINT'TOO BAD, THE SPACE PROGRAM HATES TO LOSE EXPERIENCED* 

1140 PRINI'ASTRONAUTS.* 

1145 STOP 
1150 PRINT 

1155 PRINT'OK, DO YOU VANT THE COMPLETE*:PRINT*INSTRUCTIONS OR THE INPUT-OUTPUT STATEMENTS?* 
1160 PRINT 

1165 PRINT* INCOMPLETE INSTRUCTIONS* 

1170 PRINT*2= INPUT-OUTPUT STATEMENTS* 

1173 PRINT*3=NEITHER* 

1180 INFJT B1 
1195 0«**N0* 


1190 

IF Bl=l 

THEN 

205 

1195 

Qi»*YES' 



1200 

IF Bl=2 

THEN 

190 

1205 

IF Bl=3 

THEN 

190 

1210 

GOTO 1165 


1215 

END 




HISTOGRAM PROGRAM 


I based this program on the histogram from the demonstration program which T re- 
ceived with the machine. Some friends of mine helped in redesigning the program 
so that the information can be read from data statements. 

I can fit up .to 18 individual bars across the X-axis and up to a height of 20 units 
max. on the Y-axis. The units on the Y-axis can be of any value, but inaccuracie 
occur in very large numbers when the actual bars are produced for very small 
X values (i.e. Y value bf 6 and Y value 2 will be same height if max Y value = 

100 units. 

Terry Gordon, Pakuranga. 
bvi . 'S. G?oK. Sc-ttoot. . 

* 9— ^ T. ^cRboiO. 


Vfl * TVe, vaVuK Ifca, t^a. VviihjQra/vc bari^ 'ttc*. 

inasl ncV tMieiX olRtCwvse. 1k*. Vvi.-.Vc^r(Vvt 
bar Act 

Xft$*-TKe. uaIU ixju x-ojc'iS, Wse. /vutst aoV tKOietS. 

a ^Adtor ao -Vo &ccee^ 

WtlCfJrv^S C>\y^i<~ioculU^ tK«. X -£»_x.iS. . 
mfl = tolAk Pc4iI0k2 /viARK eft IccRS vAku£ Feft. Y-AaC^. 
ftU- Tn<. riviivOxZ*' Vuvh>orft*.v btwS^ V>p to 1? 46iAts tb 
'♦k*. ScrtlLry , 


100 CLS 

200 DIM VA(20) 

300 DIM XA:t:(20) 

400 REM DX=STARTING POINT 
500 DX=307 
600 READ MA 
700 READ NU 
B00 FOR 1=1 rO NU 
900 READ VAif) 

1000 NEXT 
1100 FORT^l TO MU 
1200 READ XA<:(T) 

1300 NEXT T +- I r 1- I’ 

1400 INPUT‘’UNITS Y"; Y4 - uXiU - R«V.s ^r \Rt, 0\ uiw-ls y-A-Aik 

1500 I Ml- U r "UN I rS X";Xf — XaX'S tvnlVs - RsYs ^ rwiAvt- 0 ^ vuvJCs ^X'tkxOi. 

1550 CLS 

1600 F -LENCY-T) , 

1610 FOR D^l TO 34 itl I S 1 Prints Iki, — — 

1620 CULOUK'7: F•K•INra045^■D,^L'"j) Code- 2tl cY SHtTf //Moo ScL/I 1 "f k-cXx,^. 

1630 NEXID ■ J I 

1640 FUR U-1 TO20 ^ C 1 c ' I 

1650 COLOUR'/; r-KINTe045- (0*40) ASClc^de. ^1^ — 5 ^ 7 ■ f «f tk*, y-«Xx.S . 

1660 NEXrU ^ ^ -J 

1700 Q= ( INI ( (20-P) /2) ) *40 
1300 F'I3RT-1 TOP 

1900 CULOURO: PRINI SO , M I Df ( Y4 , I , 1 ) 

2000 Q=□^•40 
2100 NLX7T 

2200 BP=INf (MA/20> ! IF MA<20 THEM SF-(MA/20) 

2300 FUR T=0 TO 19 
2400 IF 1=0 THEN PRINra41,MA 

2500 COLOUR'4: IF TO0 THEM PR I MT@T »40h- 4 1 , MA-1 *5P - i>r.Arj y UrtJs 
2600 NEXIT 


FriA.Ts 


I -AXIS cirt 


vfs 


na/*ie. 


2700 QX=LEM(XF) 


2100-2900 


2B00 C0LaUR6;F RINl<sl926 i INT( (33 -QX)/ 

2900 FOR T=1 TU MU 4teo-3«»0 

3000 C0LaUR2! PRINr@046 t- (1 -1 ) *2, XA4 (T) 
3100 MEX n 
3200 FOR 1=1 TO NU 
3300 FUR AA=1T0 VA(r)/SP 
3400 CULaURl ; PRlNl d (DX -40*AA) i-2* ( 1 
3500 NEX I'AA 
3600 NEXIT 

9000 Kl'=INKEYf ! IFf::f=" "IHEM 9000 
10000 REM our OF SCORE 
10100 DA I A 1O0 
10200 REM NUMBER OF BAI^S 
10300 DA I A 10 

10400 REM VALUES OF HEIGHTS OF DARS,(VA) 
10500 DATA 5,10,16,19,5,50.11,16,6,2 
10600 REN X AXIS NAMES XA4(T) 

10700 DAfA 01,.2,.3..‘1,.S,.6,./,.13,.9,10 


/. -cvxis * a/vLts na/v\e 


T frmts 

) , X T J 

^ Prids x-iVKis u-aa-Vs ^rc'H eUcKx lOloo 

3200 -3600 'Pt-.n.Vi feru-s rf nu- 

( ^ 

1 ) rtSLX co€le. Soa _CY 'i6i~l<Q 



10 RQI THE ERROR HANDLING ROUTINE IS THERE TO TRAP THE CONDITION CAUSED BY INPUTINC A BLANK STATE 

HENT.IE JUST PUSHING RETURN KEY. 

20 ON ERROR GOTO 640 
30 CLS 

40 COLOUR7:PRI>inAB122l: 'UNDER OR OVER* 

SO REH THIS PROCAB HAS BEEN HOOIFIED FROM THE PROGRAN IN 'HORE BASIC CQHPUTER CANES '.PACE 170, 

60 RElijY BARRY 6 IRENE NALKER 

70 PRINT:PRlNT:PfilNT 

80 PRINT’THIS IS A CANE OF UNDER OR OVER." 

70 PRINT'TNE OBJECT IS TO PICK A NUNBER BETVEEN 2 AND 12.' 

100 PRINT* IF YOUR NUNBER IS BETWEEN 2 AND 6 YOUR BET IS UNDER' 

110 PRINT' IF YOUR HUMBER IS 7 YOUR BET IS EVEN.' 

120 PRINT* IF YOUR BET IS BETWEEN 8 AND 12 YOUR BET IS OVER.' 

130 PRINT* IF THE NUNBER TURNED UP IS YOUR NUNBER YOU WIN FOUR TINES YOUR BET,' 

140 PRINT'IF YOUR NUNBER IS THE SANE TYPE AS THE NUNBER TURNED UP YOU WIN EVEN HONEY.' 

150 PRINT'YOU HAVE 1100 TO START WITH.COOO LUCKI * :FRINT;PRINT 
160 A= 100: COLOURS 
170 RESTORE 

180 REH SET UP TYPE NAMES 

170 READ AI.BI.CI 

200 DATA'UNDEfi*, 'OVER*. 'EVEN* 

210 PRINT* INPUT THE HUMBER (2-12)AND AMOUNT OF YOUR BET.' 

220 BH»'A';Clt=*l* 

230 INPUT BII.CM 

240 REM CHECK THAT THE IMPUTED VALUES ARE NUMBERS AND IN RANGE 

250 IF ASCIBUI <48 OR ASCIBM) > 57 OR ASCICIO <48 OR ASCICM) > 57 THEN CLS; PRINT 'PLEASE USE NUMBERS ONLY':ELSE GOTO 

270 

260 PRINT;PRINT'YOU HAVE GOT «':A : GOTO 210 

270 B=VAL(81U:C=VAL(Clt) 

280 IF B<2 OR B>12 THEN CLS:PRINT'YOU HAVE GOT »':A:PRINT 'NUMBERS BETWEEN 2 AND 12 PLEASE'IGOTO 210 
270 IF OA THEN COLOURl IPRINT'CHEATIYOU DON'T HAVE THAI MUCH HONEY* ; COLOURS ; GOTO 210 
300 REH PRINT OUTPUT 

310 CLS:PRIHT;PRINT'THE DICE HAVE NOW BEEN THROWN.* 

320 PRINT'THE RESULTS ARE AS FOLLOWS :* 

330 REH THE DICE IS THROVN 

340 Q«INTIRND(6)):RA!iDON:R=IHIIRND(6l): RANDOM 

350 PRINT ' DIE II', 'DIE I2*,'SUM','Y0URI' 

360 IF Q»R>7 THEN420 ELSE IF Q*R=7 THEN 460 

370 PRINTO.R.QtR.B.'TOSS - *;A»;PRINI 

380 REM FIND OUT IF YOU WIN OR LOSE 

370 IF B=Q»R THEN 470 

400 IF B<7 THEN 520 

410 0010550 

420 PRINTQ.R.Q'R.B.'TOSS - *:B4;PR1NT 
430 IF B=Q*R THEN 470 

440 IF 8:7 THEN 520 

450 GOTO 550 

460 PR1NI0,R,Q*R,B,*T0SS - 'C»:PRINT 
470 IF B=0»R THEN 470 
480 GOTO 550 
470 A=A*(4»CI 

500 PRINTTAB(6);'«»lttt»Y0U WIN 4 TO 

510 PRINT'THE AMOUNT YOU NOW HAVE IS 4';A:PfiINT:G0I0 580 

520 A-A*C 

530 PRlNIIAB(5);*«mY0U WIN EVEN MONEYttttt' 

540 PRINT'THE AMOUNT YOU NOW HAVE IS r;A:PRINT:GOTO 580 
550 A=A-C 

560 PRINnAB(10)*"!!'Y0U LOSEI'"!' 

570 PRINT'THE AMOUNT YOU NOW HAVE IS »*;A;PRIHT 
580 IF A>0 THEN 170 

570 PRINT:PRINT:PRlHT:COLOUR4:PRlNT"rHE CANE IS OVER. SORRY MATE YOU ARE FLAT BROKE.' 

600 PRINT'THIS PROVES IT IS NOT GOOD TO GAMBLE.' 

610 PRINI'DO YOU WANT TO PLAY AGAIN’'; lINPUTWI 

620 IF Lm»IW»,l)*'Y' THEN CLS;PR1NI'Y0U HAVE *100. GOOD LUCK THIS IIHEI'lGOTO 160 
630 END 

640 IF ERR» 5 OR ERL=250 THEN Bll=*ERROR'; Cl» »'ERfiOR': RESUME 
650 ON ERROR GOTO 0 

660 REH HAND CONTROL BACK TO BASIC IF AN UNEXPECTED ERROR OCCURS 




- 1 0 

20 . • 

30 _’- 

40 _* - - 

SO—*- BY MICHAEL WERRYLEES 


ANAGRAMS »*-*-»*-iHHHf***** 


AGED 12-13 


TO COLOUR GENIE. - 


£ 0 — ’ 

AS—*-. ADAPTED 

80—1— BY DON EDUARDS AGED 120-130 

90_*_- - — - 

- 100 -’ - - ... — - - 

_J_10_J! 


12 0—’ 

130—’ ■ 

180-' ♦»» » »»»** INSTRUCTIONS ■»-»*»♦♦♦♦♦*♦■»- - 

190- CLS:CLEAR2100:N9»1 

193-COLOURl — ■ 

200. PRINTTABl 12) "A N A G R. A. M-S* - 

_2I0.. print: PRINT- 

230..PRIMT: print: PRINT" IF- INSTRUCTIONS ARE NEEDED TYPE * ! CHR» ( 34 ) ; " I * i CHR* ( 34 ) J * EL 

SE TYPE*iCHR»(34) ) ■N*:CHR*t34) - 

-240- AS=INKEY*: IFA»»*rTHEN240 . 


230. IFLEFT* ( A», 1 )»*I.*THEN270 

260- IFLEFT*(A*, 1) »*N*THEN36SELSEG0T0240 

_ 22 Q_PRINTaO, CHRa 130) : PRINT512;j’A'. N- A- G R. A. M. S* : PRINT 

_2S0_PRINT*... ANAGRAMS. ARE WORDS_IN_ WHICH. ALI THE LETTERS ARE JUMBLED UP AN 

— n_YOU. ARE GIVEN THE TASK- OF. UNJUMBLING THE- LETTERS IN A LIMITED TIME. 

T HAUF , TAKEN THIS OLD GAME- AND. WITH THE HELP OF LATA AND RANDOM NUMBER STAT 
EMENTS... I • _ - 

290 PRINT*HAVE- CONVERTED. IT INTO. A COMPUTOR . PROGRAM. *; CHRS ( 10 )! * THERE A 

RE.FOUR. LEVELS IN THE. PROGRAM : -J CHR* t 1 0 ) J " 1 = 4-6 LETTER WORDS 

_L| CHRa ( lO) ( •. 2. » 7-8. LETTER WORDS* 

-SOO.PRINT* 3 _ = 9-13 LETTER - WORDS *) CHRS ( 1 0 ) S * AND 4 = WHICH HAS WOR 

.DS- RANGING* (CHRSllO):* FROM 4-13 LETTERS IN THEM") 

310 print:print;print:print*press any key to continue* j 
320- AS=INKEYa: lFAa=* -THEMSEO .. . 

330 CLS: PRINT812, "A N A G R A M S * : PRI NT : PR I NT : PR I NT * IN EACH ONE OF THESE LE 

VELS THE . COMPUTOR. WILL. SHOW YOU ONE . OF THE MANY"; 

340 PRINT* WORDS POSSIBLE AND YOU WILL HAVE . TO WORK IT OUT AND TYPE IT IN DU 
RING A LIMITED TIME. IF. YOU CANNOT WORK THE ANAGRAM OUT AND YOU WOULD LIKE 
EITHER TO STOP OR TRY ANOTHER ANAGRAM THEN TYPE IN ' / ’ . * CHRS t 30 ) 

350_ PRINT* ...THERE. ARE ALSO TWO LEVELS OF DIFFICULTY IN THE PROGRAM" ;CH 

RS(IO);* (P) -- PROFESSIONAL" iCHRSl 101 ; • (A) -- AMATEUR* 

360. PRINT* N.B. PLEASE DO NOT PRESS RETURN AFTER *; CHRS ( 1 0 ) 1 * YOU ENTER YOU 

R- ANSWER ! ! * 

363. COLOURS . . . 

370 PRINT; INPUT "ENTER THE LEVEL YOU WANT ( 1 - 4 ) ’ ; U : I FU >40RU< 1 THEN370 
_ 380 PRINT9S80, CHRS<30) 1 : PR I NT 9 880, t : INPUT* ( P ) ROFESS I ONAL OR ( A 1 M ATEUR * : TTS ; 

IF.TTS- * P * THENTT»30ELSETT» 1 30 

383 COLOURl _ .. . 

390 ’IHHHHHHHI- DATA INPUT «■ )>« X * 

400. CLS: PRINT: PRINT: PRINT: PRINT-PRESS RETURN FOR COMPUTOR TO START DATA INPUT* J 
410 AS-INKEYS: IFAS«* "THEN410 . 

f}20_PRINT; PRINT* ENTERING COUNTERS * 

430_READV,W,)< _ 


440-_ Y=V + W*X_ . ... _ .... 

.450 IFU«1THENZ«V;M=6;DIMDS<V) 

460 IFU=2THEN2=W+V:M«8:DIMDS<W) . - 
470 IFU=3THENZ*Y;M=13;D1MDS(Y) 

480 IFU*4THENZ=Y:M»13: DIMDS(Y) 

490 T»1 

500 print: PRINT* ENTERING WORDS 
A WHILE ACCORDING TO* ! CHRS ( 10) J * 


;-"CHRs(io) : :print;print* this may take 

WHICH LEVEL YOU PICKED SO WATCH THE*! CHRS! 


10) !* SHOW WHILE YOUR COMPUTOR LISTENS TO'CHRS ( 10) i * SOME MUSIC 
310 FORN2»IT02000: NEXT - 

320- F0RB»IT0ZSTEP3:READDSIT) ,DS(T + 1) ,DS(T + 2) ,DS(T + 3) ,DS(T4-4) 

330 IFU-ITHENT-T+S — - -- - -- 

-340- IFU-2ANDB>UTHENT-T*S 

330- IFU*3AND8>WTH6NT«T*S 



• ■370-C01.0URRND (81 ; FORWW- 1T03 : PR INTiRND 1930 1 , CHRSI42I (NEXT 

380 NeXTB:FORB«lTOT-l - - • 

-S90-IFI-EN tD» (8> XSTHENNS-INT (UEN<D» IB) ) / 2) : D* ( B ) »R I GHT* ( DS IBJ ,NZ) ♦LEFTS ( D* (B) , LE 
_N(DStB> I -N3) ELSEN3-1MT ILEN (DS(B)J /3) : D«(B) -RIGHTS IDS (B J , N3 ) ♦M I DS ( DS < B 1 , LEN ( DS S3 
_> )-2*N3+l ,N3) ♦LEFTS(DS«B) ,LEN<D*tB) J -2*N3) 

.«600-C0L0URRND«8) I PRINT»RND ( 939) ,CHR«(42> : NEXTB 

._6t0-RAND0M - - • 

— 620-PRINT9776, • FINISHED * 

A30-PRINT'I am now working out a feu ANAGRAMS FOR Y 

oui-:fcra»oto2o;next— - - — ... .. 

the makings OF. AN ANAGRAM ****(^- 

_A30-S-RNDIT-1) : IFU"2ANDS<VTHEN630. 

_AA0_1FU-3ANDS<WTHEN630 

670— AS"DS(S) — - 

6B0-U)-LEN(AS). . , 

690-1FL-1THEN720 — • -- 

70OiJFN3-lTHEN720 

210_D1MAS (M) , A (M).,8 (M) 

__2201j!0RB-1T0A: ASIB)-MIDS(AS,B, 1) ;NEXT 

’NNal ... 

— JMolVoRB-lTOA '-Lr r--- • 

730-A<B) ■RND(A). 

260iF0RC-lT0B - -- --- 

__Za0-aFA I B) =B t C > . THENNN-NN+ 1 ) 1FNN>20THENNS- 1 : GOT063OEUSEG0TO730 

_7bo1nextc - • 

_7.9.a_B(8)»A{B) 

—IbooInextb - - - 

aiO.J^ORB-lTOASBS-BS'fAStACB) ) (NEXT — . 

820Z.N-N»i: IFN>STHENRANDOM:GOT0630 

._e30_IFBS-ASTHEN720. . — - . 

8405Ll»*****_ MAIN, SCREEN LAYOUT- *4-****** .... 

a4a_COLOUR2 - 

83(iLlFN9< >lTHENPRINTt333, " • | ; 00T0900 

86Q_CLS:PRINT937, "ANAGRAMS’ 

a2nlPRINT9I29, - * I : PR I NT9 2 1 3 , " YOUR ANAGRAM " i : PR I NT 9239 , S 

_TRXNOS ( 4 , 92 ) I : PR 1 NT 9329, "« SAB ■ I STRINGS ( 4 , 93) ! ) PR IMT 9450 , "SCORE; 

l).iPRlNT9332, •*♦♦•! :PRINT9468, "TIME: PRINT9343, MIMS"! 

._880^RINTS771, "»»**#*»•«***•*•♦♦*»**•»•- ; :PRINT5332, "000" J - 

a5'a_F.0RN8=lT01000;NEXT ._ 

2DQ^7=«INT (23-A + 312I : IFN7/2<> INT ( N7/2) THENN7=N7- 1 

9-03lcOLOUR6 

^E1QL_P.RINTS337,B*J ) COLOURS: PRINT 9347, USING" »»«. fl * ) A»TT/500; : C0L0UR6 : PRI NTS 1 33, "3T 

_ART.il .. . .. 

920_HH(-** LISTENING TO. YOUR ANSWERS ♦**» -- - 

_930_C-1:N7»N7+384 . . . .. .. 

_.94Q_F.0RB-1T0TT*A:G»TT»A-B: GOSUBlllO: C0L0UR6: CS-CS+ inkeys 

_930-IFRlGHTStCS, 1 ) »CHRS ( 8 ) ANDCSOCHRS < 8 ) THENCS = LEFTS ( CS , LEN (CS) -2) ; PR I NT 5 6 97 , Cs ; 

. .. 

._960_1FCS-CHRS(8)THENCS-"’ 

9.7a_IFRlGHTS (CS, I ) -CHRS ( 1 0 ) ORR I GHTS ( CS , 1 ) -CHRs 113) THENCS = LEFTS ( CS , LEN (CSI - 1 ) 

_980_PRINT9697, CSI. 

..990_IFRIGHTS(CS, 1 J-’/" THEMPR INT9 132 , " THE SOLVED ANAGRAM; PRINTS337 ,As;;FOR 
. N8-1 1T0200 : NEXT ; GOTO I 030 
lOOO IFLEN(CS) ♦l>ATHENi030 
lOIO NEXTB 

1020 PR1NT9132, "OUT OF TIME - IT WAS . . " : PR I NT9337 , AS,' ; GOTO 1 030 

1030 IFCS-ASTHENPRINT8132, "CORRECT ! MY ANAGRAM - " i : PR I NT9337 , AS ! ; M6=N6 ♦ 1 : N6S 

■STRS(N6) :C0L0UR3:PRIMT9333-LEN(N6S) ,M6S) : C0LDUR6: GOT01030 
0 

.1040_PRINT9132, "WRONG, BAD LUCK IT WAS’ ; : PR IMT9337 , Asj ; COTOI 050 

-1030-FORN8»IT02000;NEXT:PRINT9132, ’ 1 FOR MORE, 2 TO END"! 

_1060-2»«1NKEY*: IFZ»«**THEN1060 - 
_1064_C0L0UR3 

_1063_Z-\/AL (ZS) : IFZ<10R2>2THENPRINT9890, "WRONG CHOICE, TRY AGAIN’ : FORN- 1 T0300 ; NEXT 

_lPRlNT98a0,CHRS(30) :GOT01060" - 

_lO66_C0L0UR6 _ . 


; c»= 


1070_IFZI=- 1* THENPR1NTS337,STRING»(LEN(B*1 , ’*"> ! 

.NX«333, ’I’M THINKING-; : COLOUR2: PR1NT4 1 32 , * 

•:COLOUR2:PR1NT13'»9, RANDOM; GOT0650 


' " ; L=i : N7 = 2 : fri 
' J : PR:NT5690, • 


_iOBO..CLEAR30 

_I083-C0L0UR6 • 

_1090 PRINT! 132, ’THANKS FOR PLAYING, SO LONG* ; : FORA- 1 TO 1 000: NEXT: FORA-OTO'IZ: PRINT; 

.next: END - - 

_1.100_’**** TIME . SUB-ROUTNE . . 

L110_C0LOUR3: PRINT1348,USING-FA1». A - ;Q/300; : RETURN 


1-120— DATA STATMENTS WITH ENCODED ANAGRAMS ♦♦•HHl******-****»iHf*** 

1130-DATA40,60,70 - -- 

^1.140-DATAHEAC,REHI,GEUR,TESI ,BTDE, ALOV, INVA , WNLA , OMWH, ITKN, IPTR 

Li,130-DATACLECY,ULTFA, ROLEN, ORDSW,UGEQA, I2E3E, OKYSM, DTHWI , CHTYA, EUEQU, RIPST 

_1.1&0-DATAI0NM0T,EUMMUS,RCEFIE,MITC0M, IREDES , RORMI R , CLEMUS , OURLAB , AGEGAR , lALSER, E 

-L-ALORD, NEDBUR, PITPUL, ISHPUN, PETPUP, IFYPUR , ESSSTR , IPESTR 

:-1170-DATAYCLEBIC,MNEYCHI , DEMNC0M,CENDDES,MACHST0, SAGESAU, ACCOTOB, ICLEVEH, nesswit 

_,.&1PTREC,ENSEIMM,UGHTDR0,REMEEXT, ientanc,uireinq, turycen, izencit,certcon,lingcei 

— ,^T-IPVCER, PARECOM, EOUSHID , OINEHER , LTHYHEA , ATRETHE , RI ERTER, RSTYTHI , THERWHE, 3TLEWHI 

— i:-1.17S-DATAPPEDWRA,STLEWRE - 

-IIBO-DATAINGSSLGO - . 

— _ll.l90-DATAAPSELLCO,ROUSMOHU,UNCENORN,BBLEUASQ,NDAHRAVE,TIONXATA, LLELRAPA, 1CALY3PH 

^ GIONLIRE, ERVEESPR,NITEFIDE, SENEROKE, CENTNO IN , ERSEI VUN , OUGHORTH , ATORD IRA , NTI CMA 

1_R0,STERG IRE, ARCHSERE, LYSERAPA, YPUSATPL , HLETMPPA , L I ARCUPE , RA I TRTPO , E I VERCPE , ACRES 

;^SMA, — 

— ^1193- DATAIFULRCME,CIANSIMU -- 

12O0-DATANCEULAAMB,GUERLOCAT,NZALUEINF,URENATSIG,MMEGRAPRO,EMTMANPER, IZEOGMREC, E 

NDOMMREC, SALEARREH,OUSIGIREL,N1AUMOPNE,EGEVILPRI ,URECEDPRO,LERPELPRO, REDFERPRE, B 

LEERAMIS 

i-1210- DATASIONMISCOM, ABLEOURFAV,ENCESCICON,RATEUSTILL,TIONOLUREV,NERYTIQ3TA, HERE 

URTYP, lOUSTORVIC, TIONUPAOCC, ULARTICPAR, MENTLIAPAR, URRAKABKOO , DUAL I VI I ND , AMCEORT 

— -i-IMP.^ ... 

—— 1220- DATA AGANTRAVEXT, ATI ONOCI ASS, NDENTEPEIND, UNIT YORTOPP, ATI ONPARPRE, SI BLEPONRES 
.-L, RHAGEMORHAE, OITREONNREC,CABLECTIPRA , ORATEROBCOR , ATI ONORMI NF , PMENTELODEV , KFEITN 
TECOU, CTIONTINDIS, AMCESITTREM, CIOUSONSUNC 

1230-DATANATECTI0AFFE,TI0NERSAC0NV,H1EFKERCHAND, ALLYSIONOCCA, IBLEEMPTCONT, ONEREC 

^TICONF, CITYNTRIECCE , ELEDRALLUNPA , TINGUC I AEXCR , ATEDEMORCOMM , ATESUM I CCOMM , lOUSNTA 

^TOSTE, TOMECE-SPUMl 

i240_DATAATIONMMODACCO, ATIONRMINDETE, ATELYRTUNUMFO, EMENTRTISADVE, TI0U3C IENCDM3 , A 

-TIONUNCIPRON, ANCESUMSTC IRC , AT I0NS3INA3SA , AT I ONIDERCONS , SMENTRRASEMBA , lENCENVEMIN 

CO 

1230-RETURN 

1260 - • ********************************** 

_1270-’ THANK YOU 



